home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 80
/
080.d81
/
tax boot
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
2KB
|
67 lines
10 dimf$(7)
15 fori=1to7:readf$(i):next
20 data deductions,tax income,bus exp,emp exp,farm,readedstar.o,hello connect
100 poke53281,0:poke53280,0:poke53272,23:print"[147][158]";
110 c$="12121515010115151212":cc=-1
111 ss$=" "
120 fori=1to12:print"[169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][155][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223]";:next
130 fori=1to12:print"[152][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][151][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169]";:next
140 print"[152][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][151][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169]"
150 poke2023,peek(1083):poke56295,peek(56255)
160 fori=217to242:pokei,peek(i)or128:next
170 poke214,1:print:fori=1to10:printtab(4)"[221][152] [146][158][221]"
180 next:poke214,2:poke211,4:sys58732
190 print"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
200 printtab(5)"[155][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][158]"
210 poke214,12:poke211,4:sys58732
220 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
230 printtab(5)"[145][145][151][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][158]":poke214,4:print
240 a$="[212]ax [207]rganizer":gosub300
250 a$="by [194]arbara [200]. [211]chulak":gosub300
260 a$="[208][213][194][204][201][211][200][197][196][160][207][206][160][204][207][193][196][211][212][193][210][160]#80":gosub300
270 a$="[211][213][194][211][195][210][201][208][212][201][207][206][211] 1-800-831-2694":gosub300
280 a$="([195]) 1991 [211]oftdisk":gosub300
290 goto310
300 printspc(20-len(a$)/2)"[152]"a$:return
310 gosub510
330 poke214,16:poke211,4:sys58732
340 print"[159]1. [196][197][196][213][195][212][201][207][206][211] ([211][195][200]. [193])
345 [153]"2. (NULL)atn(NULL)atnpeek(NULL)val right$(NULL)len(NULL)(NULL)val (1040)
350 print"3. [194][213][211]. [197][216][208][197][206][211][197][211] ([211][195][200]. [195])
352 [153]"4. val(NULL)(NULL)(NULL)(NULL)(NULL)valval peek(NULL)(NULL). val(NULL)(NULL). (2106)
354 print"5. [198][193][210][205] [197][216][208][197][206][211][197][211] ([211][195][200]. [198])
356 [153]"6. right$nstructions
358 print"7. [204][207][193][196][211][212][193][210]
370 [153]""
380 [161]a$:[139]a$[179]"1"[176]a$[177]"7"[167]380
381 c[178]1024[170](15[170][197](a$))[172]40[170]5:[129]i[178]c[164]c[170]30:[151]i,[194](i)[176]128:[130]
390 f[178][197](a$):f$[178]f$(f):[139]f[178]6[167]1000
440 [153]"";:[129]i[178]1[164]14:[153]ss$;:[130]
441 [129]i[178]217[164]242:[151]i,[194](i)[176]128:[130]
449 [137]60000
510 [151]214,15:[158]58732:[129]i[178]1[164]9
520 [153]"open ":[130]:[153]"":[142]
1000 [153]"";:[129]i[178]1[164]14:[153]ss$;:[130]
1001 [129]i[178]217[164]242:[151]i,[194](i)[176]128:[130]
1002 [158]57812"readedstar.o",8,0:[151]780,0:[151]781,0:[151]782,192:[158]65493
1003 [141]9000
1004 [159]2,8,2,"tax.instr,p,r":[158]49152
1005 [151]198,0:[160]2
1006 [161]k$:[139]k$[179][177][199](13)[167]1006
1007 [137]100
9000 [153]"load print*** def(NULL)atn(NULL) (NULL)(NULL)chr$atn(NULL)right$(NULL)val(NULL) print***"
9005 [153]"ortantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan^";
9010 [129]i[178]1[164]21:[153]"(NULL) (NULL)";:[130]
9015 [153]"/tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantanexp";
9020 [153]" def(NULL)ress (NULL)val(NULL)(NULL)(NULL)(NULL)"
9025 [142]
9100 [151]214,22:[153]:[153][163]14)"print(NULL)ress (NULL)val(NULL)(NULL)(NULL)(NULL)"
9105 [161]k$:[139]k$[179][177][199](13)[167]9105
9110 [142]
10000 [159]15,8,15,"s0:tax boot":[160]15:[148]"0:tax boot",8:[128]
60000 a$[178]f$:[159]15,8,15,"r0:"[170]a$[170]"="[170]a$:[132]15,er:[160]15
60010 [139] er[179][177]63 [167][153]"load":[128]
60011 q$[178][199](34):[151]646,[194](53281)
60020 [153]"load"q$a$q$",8"
60030 [153]"?"q$"load"q$":run":[151]631,13:[151]632,13:[151]198,2:[128]